home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
BBS Toolkit
/
BBS Toolkit.iso
/
rbbs_pc
/
menu0174.zip
/
RSB5MENU.MRG
< prev
Wrap
Text File
|
1992-06-23
|
1KB
|
29 lines
* ------------[ BLED merge (c) Ken Goosens ]-------------
* Merge this against C:\RBBS\SOURCE\STOCK\RBBSSUB5.BAS to produce RBBSSUB5.BAS
* C:\RBBS\SOURCE\STOCK\RBBSSUB5.BAS: Date 6-20-1992 Size 116575 bytes
* ------------[ Created 06-23-1992 02:00:38 ]------------
* REPLACING old line(s) by new
63640 ' * Welcomes caller on
SUB SayWelcome STATIC
* ------[ first line different ]------
LOCATE 24,1,1 ' DD062201/MENU0
CALL AMorPM
ZUserLogonTime! = TIMER
ZTimeLoggedOn$ = TIME$
ZLinesPrinted = 0
ZExpertUser = ZFalse
CALL SetExpert
ZOutTxt$ = ""
IF ZMaxNodes > 1 THEN _
ZOutTxt$ = " - Node " + ZNodeID$
IF ZReliableMode THEN _
ZOutTxt$ = ZOutTxt$ + " (Reliable)"
CALL QuickTPut1 ("Welcome to " + ZRBBSName$ + ZOutTxt$)
CALL TestANSI
ZTestParity = ZTrue
ZStopInterrupts = ZTrue
ZFileName$ = ZPreLog$
CALL FlushCom (WasX$)
ZCommPortStack$ = ""
END SUB